home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / swbback / subrouti.bas < prev    next >
Encoding:
BASIC Source File  |  1999-02-16  |  1.2 KB  |  49 lines
  1. Attribute VB_Name = "Subroutines"
  2. Option Explicit
  3.  
  4.  
  5. Public Function ExtractFilePath(FileName As String) As String
  6.     Dim C As Integer
  7.     Dim I As Integer
  8.     Dim Char As String
  9.  
  10.     For I = Len(FileName) To 1 Step -1
  11.         Char = Mid$(FileName, I, 1)
  12.         If (Char = "\") Or (Char = ":") Then Exit For
  13.     Next I
  14.     
  15.     ExtractFilePath = Left$(FileName, I - C)
  16. End Function
  17.  
  18. Public Function ExtractFileName(FileName As String) As String
  19.     Dim I As Integer
  20.     Dim Char As String
  21.     Dim TempName As String
  22.     
  23.     For I = Len(FileName) To 1 Step -1
  24.         Char = Mid$(FileName, I, 1)
  25.         If (Char = "\") Or (Char = ":") Then Exit For
  26.     Next I
  27.     
  28.     TempName = Mid$(FileName, I + 1)
  29.     If (InStr(TempName, ".") = 0) Then TempName = ""
  30.     
  31.     ExtractFileName = TempName
  32. End Function
  33.  
  34. Public Sub PopulateBackupDriveList(ComboCtl As ComboBox)
  35.     Dim I As Integer
  36.     
  37.     ComboCtl.Clear
  38.     
  39.     For I = Asc("A") To Asc("Z")
  40.         If (GetDriveType(Chr$(I) & ":\") = DRIVE_REMOVABLE) Then
  41.             ComboCtl.AddItem Chr$(I) & ":"
  42.         End If
  43.     Next I
  44.     
  45.     If (ComboCtl.ListCount > 0) Then ComboCtl.ListIndex = 0
  46. End Sub
  47.  
  48.  
  49.